/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / its / its-hankaku.elc.z / its-hankaku.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 73 74 65 76 65 40 61 |piled by| steve@a|
|00000020| 6c 74 61 69 72 2e 78 65 | 6d 61 63 73 2e 6f 72 67 |ltair.xe|macs.org|
|00000030| 20 6f 6e 20 54 68 75 20 | 4e 6f 76 20 32 30 20 31 | on Thu |Nov 20 1|
|00000040| 37 3a 35 32 3a 31 35 20 | 31 39 39 37 0a 3b 3b 3b |7:52:15 |1997.;;;|
|00000050| 20 66 72 6f 6d 20 66 69 | 6c 65 20 2f 68 6f 6d 65 | from fi|le /home|
|00000060| 2f 78 65 6d 61 63 73 2f | 32 30 2e 33 2f 78 65 6d |/xemacs/|20.3/xem|
|00000070| 61 63 73 2d 32 30 2e 33 | 2f 6c 69 73 70 2f 69 74 |acs-20.3|/lisp/it|
|00000080| 73 2f 69 74 73 2d 68 61 | 6e 6b 61 6b 75 2e 65 6c |s/its-ha|nkaku.el|
|00000090| 0a 3b 3b 3b 20 65 6d 61 | 63 73 20 76 65 72 73 69 |.;;; ema|cs versi|
|000000a0| 6f 6e 20 32 30 2e 33 20 | 22 56 61 74 69 63 61 6e |on 20.3 |"Vatican|
|000000b0| 20 43 69 74 79 22 20 58 | 45 6d 61 63 73 20 20 4c | City" X|Emacs  L|
|000000c0| 75 63 69 64 2e 0a 3b 3b | 3b 20 62 79 74 65 63 6f |ucid..;;|; byteco|
|000000d0| 6d 70 20 76 65 72 73 69 | 6f 6e 20 32 2e 32 35 20 |mp versi|on 2.25 |
|000000e0| 58 45 6d 61 63 73 3b 20 | 32 32 2d 4d 61 72 2d 39 |XEmacs; |22-Mar-9|
|000000f0| 36 2e 0a 3b 3b 3b 20 6f | 70 74 69 6d 69 7a 61 74 |6..;;; o|ptimizat|
|00000100| 69 6f 6e 20 69 73 20 6f | 6e 2e 0a 3b 3b 3b 20 74 |ion is o|n..;;; t|
|00000110| 68 69 73 20 66 69 6c 65 | 20 75 73 65 73 20 6f 70 |his file| uses op|
|00000120| 63 6f 64 65 73 20 77 68 | 69 63 68 20 64 6f 20 6e |codes wh|ich do n|
|00000130| 6f 74 20 65 78 69 73 74 | 20 69 6e 20 45 6d 61 63 |ot exist| in Emac|
|00000140| 73 20 31 39 2e 0a 0a 28 | 69 66 20 28 61 6e 64 20 |s 19...(|if (and |
|00000150| 28 62 6f 75 6e 64 70 20 | 27 65 6d 61 63 73 2d 76 |(boundp |'emacs-v|
|00000160| 65 72 73 69 6f 6e 29 0a | 09 20 28 6f 72 20 28 61 |ersion).|. (or (a|
|00000170| 6e 64 20 28 62 6f 75 6e | 64 70 20 27 65 70 6f 63 |nd (boun|dp 'epoc|
|00000180| 68 3a 3a 76 65 72 73 69 | 6f 6e 29 20 65 70 6f 63 |h::versi|on) epoc|
|00000190| 68 3a 3a 76 65 72 73 69 | 6f 6e 29 0a 09 20 20 20 |h::versi|on)..   |
|000001a0| 20 20 28 73 74 72 69 6e | 67 2d 6c 65 73 73 70 20 |  (strin|g-lessp |
|000001b0| 65 6d 61 63 73 2d 76 65 | 72 73 69 6f 6e 20 22 32 |emacs-ve|rsion "2|
|000001c0| 30 22 29 29 29 0a 20 20 | 20 20 28 65 72 72 6f 72 |0"))).  |  (error|
|000001d0| 20 22 60 69 74 73 2d 68 | 61 6e 6b 61 6b 75 2e 65 | "`its-h|ankaku.e|
|000001e0| 6c 27 20 77 61 73 20 63 | 6f 6d 70 69 6c 65 64 20 |l' was c|ompiled |
|000001f0| 66 6f 72 20 45 6d 61 63 | 73 20 32 30 22 29 29 0a |for Emac|s 20")).|
|00000200| 0a 28 6f 72 20 28 62 6f | 75 6e 64 70 20 27 63 75 |.(or (bo|undp 'cu|
|00000210| 72 72 65 6e 74 2d 6c 6f | 61 64 2d 6c 69 73 74 29 |rrent-lo|ad-list)|
|00000220| 20 28 73 65 74 71 20 63 | 75 72 72 65 6e 74 2d 6c | (setq c|urrent-l|
|00000230| 6f 61 64 2d 6c 69 73 74 | 20 6e 69 6c 29 29 0a 0a |oad-list| nil))..|
|00000240| 0a 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 c1 21 |.(byte-c|ode "..!|
|00000250| ac 82 c2 11 c1 0b 42 13 | c0 c4 21 ac 82 c5 14 c4 |......B.|..!.....|
|00000260| 0b 42 13 c0 c6 21 ac 83 | c7 16 06 c6 0b 42 13 c0 |.B...!..|.....B..|
|00000270| c8 21 ac 83 c9 16 08 c8 | 0b 42 13 ca cb cc cd 23 |.!......|.B.....#|
|00000280| 88 09 ce 1e 0f 89 1e 10 | ab 93 0e 10 40 16 0f d1 |........|....@...|
|00000290| 0e 0f 89 5c 22 88 0e 10 | 41 89 16 10 ac 6d 2a 0c |...\"...|A....m*.|
|000002a0| ce 1e 12 89 1e 13 ab 93 | 0e 13 40 16 12 d1 0e 12 |........|..@.....|
|000002b0| 89 5c 22 88 0e 13 41 89 | 16 13 ac 6d 2a 0e 06 ce |.\"...A.|...m*...|
|000002c0| 1e 14 89 1e 15 ab 93 0e | 15 40 16 14 d1 0e 14 89 |........|.@......|
|000002d0| 5c 22 88 0e 15 41 89 16 | 15 ac 6d 2a 0e 08 ce 1e |\"...A..|..m*....|
|000002e0| 16 89 1e 17 ab 93 0e 17 | 40 16 16 d1 0e 16 89 5c |........|@......\|
|000002f0| 22 88 0e 17 41 89 16 17 | ac 6d 2a ce 87 22 20 5b |"...A...|.m*.." [|
|00000300| 62 6f 75 6e 64 70 20 64 | 69 67 69 74 2d 63 68 61 |boundp d|igit-cha|
|00000310| 72 61 63 74 65 72 73 20 | 28 22 31 22 20 22 32 22 |racters |("1" "2"|
|00000320| 20 22 33 22 20 22 34 22 | 20 22 35 22 20 22 36 22 | "3" "4"| "5" "6"|
|00000330| 20 22 37 22 20 22 38 22 | 20 22 39 22 20 22 30 22 | "7" "8"| "9" "0"|
|00000340| 29 20 63 75 72 72 65 6e | 74 2d 6c 6f 61 64 2d 6c |) curren|t-load-l|
|00000350| 69 73 74 20 73 79 6d 62 | 6f 6c 2d 63 68 61 72 61 |ist symb|ol-chara|
|00000360| 63 74 65 72 73 20 28 22 | 20 22 20 22 21 22 20 22 |cters ("| " "!" "|
|00000370| 40 22 20 22 23 22 20 22 | 24 22 20 22 25 22 20 22 |@" "#" "|$" "%" "|
|00000380| 5e 22 20 22 26 22 20 22 | 2a 22 20 22 28 22 20 22 |^" "&" "|*" "(" "|
|00000390| 29 22 20 22 2d 22 20 22 | 3d 22 20 22 60 22 20 22 |)" "-" "|=" "`" "|
|000003a0| 5c 5c 22 20 22 7c 22 20 | 22 5f 22 20 22 2b 22 20 |\\" "|" |"_" "+" |
|000003b0| 22 7e 22 20 22 5b 22 20 | 22 5d 22 20 22 7b 22 20 |"~" "[" |"]" "{" |
|000003c0| 22 7d 22 20 22 3a 22 20 | 22 3b 22 20 22 5c 22 22 |"}" ":" |";" "\""|
|000003d0| 20 22 27 22 20 22 3c 22 | 20 22 3e 22 20 22 3f 22 | "'" "<"| ">" "?"|
|000003e0| 20 22 2f 22 20 22 2c 22 | 20 22 2e 22 29 20 64 6f | "/" ","| ".") do|
|000003f0| 77 6e 63 61 73 65 2d 61 | 6c 70 68 61 62 65 74 73 |wncase-a|lphabets|
|00000400| 20 28 22 61 22 20 22 62 | 22 20 22 63 22 20 22 64 | ("a" "b|" "c" "d|
|00000410| 22 20 22 65 22 20 22 66 | 22 20 22 67 22 20 22 68 |" "e" "f|" "g" "h|
|00000420| 22 20 22 69 22 20 22 6a | 22 20 22 6b 22 20 22 6c |" "i" "j|" "k" "l|
|00000430| 22 20 22 6d 22 20 22 6e | 22 20 22 6f 22 20 22 70 |" "m" "n|" "o" "p|
|00000440| 22 20 22 71 22 20 22 72 | 22 20 22 73 22 20 22 74 |" "q" "r|" "s" "t|
|00000450| 22 20 22 75 22 20 22 76 | 22 20 22 77 22 20 22 78 |" "u" "v|" "w" "x|
|00000460| 22 20 22 79 22 20 22 7a | 22 29 20 75 70 63 61 73 |" "y" "z|") upcas|
|00000470| 65 2d 61 6c 70 68 61 62 | 65 74 73 20 28 22 41 22 |e-alphab|ets ("A"|
|00000480| 20 22 42 22 20 22 43 22 | 20 22 44 22 20 22 45 22 | "B" "C"| "D" "E"|
|00000490| 20 22 46 22 20 22 47 22 | 20 22 48 22 20 22 49 22 | "F" "G"| "H" "I"|
|000004a0| 20 22 4a 22 20 22 4b 22 | 20 22 4c 22 20 22 4d 22 | "J" "K"| "L" "M"|
|000004b0| 20 22 4e 22 20 22 4f 22 | 20 22 50 22 20 22 51 22 | "N" "O"| "P" "Q"|
|000004c0| 20 22 52 22 20 22 53 22 | 20 22 54 22 20 22 55 22 | "R" "S"| "T" "U"|
|000004d0| 20 22 56 22 20 22 57 22 | 20 22 58 22 20 22 59 22 | "V" "W"| "X" "Y"|
|000004e0| 20 22 5a 22 29 20 69 74 | 73 2d 64 65 66 69 6e 65 | "Z") it|s-define|
|000004f0| 2d 6d 6f 64 65 20 22 64 | 6f 77 6e 63 61 73 65 22 |-mode "d|owncase"|
|00000500| 20 22 61 61 22 20 74 20 | 6e 69 6c 20 64 69 67 69 | "aa" t |nil digi|
|00000510| 74 20 74 65 6d 70 20 69 | 74 73 2d 64 65 66 72 75 |t temp i|ts-defru|
|00000520| 6c 65 20 73 79 6d 62 6f | 6c 20 74 65 6d 70 20 64 |le symbo|l temp d|
|00000530| 6f 77 6e 63 61 73 65 20 | 74 65 6d 70 20 75 70 63 |owncase |temp upc|
|00000540| 61 73 65 20 74 65 6d 70 | 5d 20 35 29 0a 28 64 65 |ase temp|] 5).(de|
|00000550| 66 61 6c 69 61 73 20 27 | 75 70 63 61 73 65 2d 63 |falias '|upcase-c|
|00000560| 68 61 72 61 63 74 65 72 | 20 23 5b 28 63 68 29 20 |haracter| #[(ch) |
|00000570| 22 c0 09 58 ab 8b 09 c2 | 58 ab 86 c3 09 c0 5a 5c |"..X....|X.....Z\|
|00000580| 5c 87 09 87 22 20 5b 3f | 61 20 63 68 20 3f 7a 20 |\..." [?|a ch ?z |
|00000590| 3f 41 5d 20 33 5d 29 0a | 28 62 79 74 65 2d 63 6f |?A] 3]).|(byte-co|
|000005a0| 64 65 20 22 c0 c1 c2 c3 | 23 88 0c c5 1e 06 89 1e |de "....|#.......|
|000005b0| 07 ab 93 0e 07 40 16 06 | c8 0e 06 89 5c 22 88 0e |.....@..|....\"..|
|000005c0| 07 41 89 16 07 ac 6d 2a | 0e 09 c5 1e 5c 6e 89 1e |.A....m*|....\n..|
|000005d0| 0b ab 93 0e 0b 40 16 5c | 6e c8 0e 5c 6e 89 5c 22 |.....@.\|n..\n.\"|
|000005e0| 88 0e 0b 41 89 16 0b ac | 6d 2a 0e 0c c5 1e 0d 89 |...A....|m*......|
|000005f0| 1e 0e ab 9a 0e 0e 40 16 | 0d c8 0e 0d cf d0 d1 0e |......@.|........|
|00000600| 0d 21 21 21 5c 22 88 0e | 0e 41 89 16 0e ac 66 2a |.!!!\"..|.A....f*|
|00000610| 0e 12 c5 1e 13 89 1e 14 | ab 93 0e 14 40 16 13 c8 |........|....@...|
|00000620| 0e 13 89 5c 22 88 0e 14 | 41 89 16 14 ac 6d 2a c5 |...\"...|A....m*.|
|00000630| 87 22 20 5b 69 74 73 2d | 64 65 66 69 6e 65 2d 6d |." [its-|define-m|
|00000640| 6f 64 65 20 22 75 70 63 | 61 73 65 22 20 22 61 41 |ode "upc|ase" "aA|
|00000650| 22 20 74 20 64 69 67 69 | 74 2d 63 68 61 72 61 63 |" t digi|t-charac|
|00000660| 74 65 72 73 20 6e 69 6c | 20 64 69 67 69 74 20 74 |ters nil| digit t|
|00000670| 65 6d 70 20 69 74 73 2d | 64 65 66 72 75 6c 65 20 |emp its-|defrule |
|00000680| 73 79 6d 62 6f 6c 2d 63 | 68 61 72 61 63 74 65 72 |symbol-c|haracter|
|00000690| 73 20 73 79 6d 62 6f 6c | 20 74 65 6d 70 20 64 6f |s symbol| temp do|
|000006a0| 77 6e 63 61 73 65 2d 61 | 6c 70 68 61 62 65 74 73 |wncase-a|lphabets|
|000006b0| 20 64 6f 77 6e 63 61 73 | 65 20 74 65 6d 70 20 63 | downcas|e temp c|
|000006c0| 68 61 72 2d 74 6f 2d 73 | 74 72 69 6e 67 20 75 70 |har-to-s|tring up|
|000006d0| 63 61 73 65 2d 63 68 61 | 72 61 63 74 65 72 20 73 |case-cha|racter s|
|000006e0| 74 72 69 6e 67 2d 74 6f | 2d 63 68 61 72 20 75 70 |tring-to|-char up|
|000006f0| 63 61 73 65 2d 61 6c 70 | 68 61 62 65 74 73 20 75 |case-alp|habets u|
|00000700| 70 63 61 73 65 20 74 65 | 6d 70 5d 20 37 29 0a    |pcase te|mp] 7). |
+--------+-------------------------+-------------------------+--------+--------+